home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / Perl / t / mac / StandardFile.t < prev   
Text File  |  1994-01-06  |  903b  |  27 lines
  1. #!/usr/bin/perl
  2.  
  3. require "StandardFile.pl";
  4.  
  5. $| = 1;
  6.  
  7. print "Current Folder: ", `pwd`;
  8. $filename = &StandardFile'GetFile("Please choose a file:", "TEXT", "OBJ ", "::");
  9. print ($filename ? "You chose:\n$filename\n" : "You cancelled\n");
  10.  
  11. $filename = &StandardFile'GetFile("TEXT");
  12. print ($filename ? "You chose:\n$filename\n" : "You cancelled\n");
  13.  
  14. $filename = &StandardFile'PutFile("Select New File");
  15. print ($filename ? "You typed:\n$filename\n" : "You cancelled\n");
  16.  
  17. print "Current Folder: ", `pwd`;
  18. $filename = &StandardFile'GetNewFile("Select New File", "::Titled");
  19. print ($filename ? "You typed:\n$filename\n" : "You cancelled\n");
  20.  
  21. print "Current Folder: ", `pwd`;
  22. $dirname = &StandardFile'GetFolder("Gimme a folder", ":::");
  23. print ($dirname ? "You chose:\n$dirname\n" : "You cancelled\n");
  24.  
  25. $dirname = &StandardFile'GetFolder();
  26. print ($dirname ? "You chose:\n$dirname\n" : "You cancelled\n");
  27.